0 REM << CD38-4 >>
1 REM COMMODARES PROBLEM #34-3:
2 PRINT"DIGIT DECOMPOSITION"
3 REM SOLUTION BY
4 REM   DONALD PELLEGRINI
5 REM
10 SUM=0 : B=1E8 : FLG=0
20 INPUT N:IF N>999999999 OR N<0 OR N-INT(N)>0 THEN 20
30 IF N<10 THEN PRINT N;"=";N : GOTO 10
40 FOR J=1 TO 9
50 C=INT(N/B) : IF C>0 THEN FLG=1
60 IF FLG=1 THEN PRINT C;:SUM=SUM+C:IF J<9 THEN PRINT"+";
70 N=N-C*B : B=B/10
80 NEXT : PRINT"=";SUM : GOTO 10